home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / MAH-G17.M4 < prev    next >
Text File  |  1996-04-01  |  5KB  |  171 lines
  1. name Maho XY Plane G17
  2.  
  3. % 00
  4. N >5
  5. G >2
  6. X ->3.>4
  7. x ->3.>4 X
  8. Y ->3.>4
  9. y ->3.>4 Y
  10. Z ->3.>4
  11. z ->3.>4 Z
  12. d ->3.>4 Z
  13. I ->3.>4
  14. i ->3.>4 I
  15. J ->3.>4
  16. j >3.>4 J
  17. K ->3.>4
  18. k >3.>4 K
  19. F >3.2
  20. B ->3.>3 Add 180
  21. b >3.>4 B
  22. R >3.>4
  23. T >2
  24. M >2
  25. S >4
  26. W 00 
  27. ( 00
  28. ! >3.>4
  29. @ >3.>4
  30. # >3.>4
  31. ) 00
  32. $ 00
  33.  
  34. ModalLetters Y y Z F B z              # List of letters that are modal    
  35.  
  36. ModalGs 81 83 84 85 86 90             # List of g codes that are modal    
  37.  
  38. Sequence#s N 1 1 1                    # Char, freq, incr & start          
  39. First#? N                             # Y or N  'Output 1st sequence no.  
  40. Last#? N                              # Y or N  'Output last sequence no. 
  41.  
  42. HCode X                               # X or X U  'Horizontal char.       
  43. VCode Y                               # Y or Y V  'Vertical char.         
  44. Dcode Z                               # Depth char.                       
  45. FeedCode F                            # Feed rate char.                   
  46.  
  47. Comment ( )                           # Begin End comment char.           
  48.  
  49. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  50. Coolant 13 9 8                        # On, Off & Mist m codes            
  51. DComp 41 42 40                        # Left, Right & Cancel m codes      
  52. LComp 43 49                           # On & Off codes                    
  53.  
  54. Feed G1                             # Linear move                       
  55. Rapid G0                            # Rapid positioning word            
  56. Cw G2                               # Circular move clockwise           
  57. Ccw G3                              # Circular move counter clockwise   
  58.  
  59. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  60.  
  61. CtrCode R                             # I J or R or I J K L               
  62. Helical? N
  63.  
  64. Spaces? Y                             # Y or N  'Spaces between words     
  65.  
  66. Incremental? N                        # Y or N  'Inc or abs output        
  67. CtrIncremental? N                     # Y or N  'Inc or abs I & J         
  68. ByQuadrants? Y                        # Y or N  'Break arcs at quadrants  
  69.  
  70. ZRestart? N                           # Y or N  'New cycle if diff. depths
  71.  
  72. RevSigns d B                          # List of letters to reverse signs  
  73.  
  74. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  75.  
  76. Drill 2                               # Drilling canned/manual cycle      
  77. G81 x[Dwell] d[Depth] b2 F[Frate] Y[Sclear]
  78. G79 x[H] y[V] z[PointD]
  79. G79 x[H] y[V] z[PointD]
  80. end
  81.  
  82. Peck 2                                # Pecking canned/manual cycle       
  83. G83 x[Dwell] d[Depth] b2 F[Frate] Y[Sclear] j.003 K[VBite]
  84. G79 x[H] y[V] z[PointD]
  85. G79 x[H] y[V] z[PointD]
  86. end cancel
  87.  
  88. Tap 2                                 # Tapping canned/manual cycle       
  89. G84 x[Dwell] d[Depth] b2 F[Frate] Y[Sclear]
  90. G79 x[H] y[V] z[PointD]
  91. G79 x[H] y[V] z[PointD]
  92. end cancel
  93.  
  94. Ream 2                                # Reaming canned/manual cycle       
  95. G85 x[Dwell] d[Depth] b2 F[Frate] Y[Sclear]
  96. G79 x[H] y[V] z[PointD]
  97. G79 x[H] y[V] z[PointD]
  98. end cancel
  99.  
  100. Bore 2                                # Boring canned/manual cycle        
  101. G86 x[Dwell] d[Depth] b2 F[Frate] Y[Sclear]
  102. G79 x[H] y[V] z[PointD]
  103. G79 x[H] y[V] z[PointD]
  104. end cancel
  105.  
  106. Back 2                                # Back boring canned/manual cycle   
  107. G83 x[Dwell] d[Depth] b2 F[Frate] Y[Sclear] I[VBite] K[VBite]
  108. G79 x[H] y[V] z[PointD]
  109. G79 x[H] y[V] z[PointD]
  110. end cancel
  111.  
  112. Cancel                                # Cancel a canned/manual cycle      
  113. end
  114.  
  115. Index Z                               # Index the rotary table            
  116. G53 T0 M67
  117. G0 Y20 Z30
  118. G0 B[Rotangle]
  119. G[Work] T[Tool] M67
  120. G0 X[H] Y[V]
  121. G0 M[Cool] Z[D]
  122. end
  123.  
  124. StartCode                             # Start of the program              
  125. N[Program#]
  126. end
  127.  
  128. 1stToolChange                         # First tool change                 
  129. G17
  130. G53 T0 M67
  131. G0 Y20 Z30
  132. G0 X0
  133. G[Work]
  134. S[Speed] T[Tool] M66 (0 ![ToolRad] @[ToolDiam] )0
  135. M[Direct]
  136. M[Cool]
  137. G0 B[Rotangle]
  138. G0 X[H] Y[V] Z[Rplane]
  139. End
  140.  
  141. Infeed                                # Enable cutter comp                
  142. G1 Z[D] F[Plunge]
  143. G43 X[H] Y[V] F[FRate]
  144. G[Side]
  145. End
  146.  
  147. Outfeed                               # Disable cutter comp               
  148. G40
  149. G1 X[H] Y[V]
  150. End
  151.  
  152. ToolChange                            # Secondary tool changes            
  153. G0 X[ToolH] Y[ToolV] Z[ToolD] M[Cool]
  154. G0 B[Rotangle]
  155. S[Speed] T[Tool] M66 (0 ![ToolRad] @[ToolDiam] )0
  156. G0 X[H] Y[V] Z[RPlane]
  157. End
  158.  
  159. EndCode                               # End of the program                
  160. G0 X[ToolH] Y[ToolV] Z[ToolD] M[Cool]
  161. G0 B[Rotangle]
  162. M30
  163. W0
  164. End
  165.  
  166. Replace "%" with "%PM"
  167. replace "!" with "Tool Radius: "
  168. replace "@" with "Tool Diam: "
  169. replace "#" with "Tool Corner: "
  170. replace "B-360" with "B0"
  171.